declare
a number(8);
b number(8);
num_res number(9);
cursor nu_ty is
select results from message ;
begin
open nu_ty;
loop
fetch nu_ty into num_res;
exit when nu_ty%notfound;
a:=num_res/2;
b:=(num_res+1)/2;
if a<b then
update message set nu_type='The Number Is EVEN'
where results=num_res;
else
update message set nu_type='The Number Is ODD'
where results=num_res;
end if;
end loop;
close nu_ty;
end;